1 PRINT"[147][154]USE JOYSTICK 2 TO DRAW A LINE ON THE
2 [153]"SCREEN.  HOLD DOWN THE FIRE BUTTON TO
3 PRINT"LIFT THE LINE.  PRESS F1 TO CLEAR THE
4 [153]"SCREEN.  PRESS THE OTHER FUNCTION KEYS
5 PRINT"TO CHANGE THE COLORS.
9 [153]"         PLEASE WAIT ONE MINUTE.
10 FORI=40960TO49151:POKEI,PEEK(I):NEXT:FORI=41150TO41152:READN:POKEI,N:NEXT:READL,H:POKE40988,L:POKE40989,H:DATA72,85,197,75,196:FORI=41189TO41192:READN:POKEI,N:NEXT:READL,H:POKE41008,L:POKE41009,H:DATA80,76,79,212,130,196:FORI=41225TO41228:READN:POKEI,N:NEXT:READL,H:POKE41024,L:POKE41025,H
11 DATA87,73,80,197,53,196:FORI=41201TO41206:READN:POKEI,N:NEXT:READL,H:POKE41014,L:POKE41015,H:DATA83,67,82,69,69,206,11,196:FORI=42042TO42044:READN:POKEI,N:NEXT:DATA76,0,196:FORI=50176TO50480:READN:POKEI,N:NEXT:DATA32,24,196,138,10,170,76,61,164,80,70,83,32,158,183,224,1
12 DATA144,5,240,19,76,72,178,169,27,141,17,208,169,21,141,24,208:DATA169,151,141,0,221,96,169,59,141,17,208,169,8,141,24,208,169:DATA148,208,238,162,32,169,224,133,252,160,0,132,251,152,145,251,200:DATA208,251,230,252,202,208,246,96,32,123,196,138,10,10,10,10,133
13 DATA2,32,253,174,32,123,196,138,5,2,160,192,132,252,160,0,132:DATA251,162,2,145,251,200,208,251,230,252,202,16,246,145,251,200,192:DATA232,144,249,96,32,158,183,224,16,176,17,96,32,235,183,134,2:DATA169,199,56,229,2,133,2,201,200,144,3,76,72,178,165,21,240
14 DATA10,201,1,208,245,165,20,201,64,176,239,169,0,133,251,169,224:DATA133,252,165,20,41,248,24,101,251,133,251,165,21,101,252,133,252:DATA165,2,41,7,24,101,251,133,251,144,2,230,252,165,2,74,74:DATA74,10,170,189,247,196,24,101,251,133,251,189,248,196,101,252,133
15 DATA252,165,20,41,7,170,160,0,120,169,52,133,1,177,251,29,41:DATA197,145,251,169,54,133,1,88,96,0,0,64,1,128,2,192,3:DATA0,5,64,6,128,7,192,8,0,10,64,11,128,12,192,13,0:DATA15,64,16,128,17,192,18,0,20,64,21,128,22,192,23,0,25
16 DATA64,26,128,27,192,28,0,30,128,64,32,16,8,4,2,1:POKE1,54:RUN19
19 VERIFY1:CONT:A=12:B=8:C=9:POKE53280,A:LETB,C
20 X=159:Y=99:WAITX,Y
30 GOSUB100:IFFTHENPOKE53280,A:LETB,C
40 IFPEEK(56320)AND16THENWAITX,Y
50 GOTO30
100 J=PEEK(56320)AND15
120 IF(JAND8)=0THENX=X+1
130 IF(JAND4)=0THENX=X-1
140 IF(JAND2)=0THENY=Y-1
150 IF(JAND1)=0THENY=Y+1
160 IFY<0THENY=0
170 IFY>199THENY=199
180 IFX>319THENX=319
190 IFX<0THENX=0
200 F=0:GETG$:IFG$="[133]"THENCONT
210 IFG$="[134]"THENA=A+1:F=1:IFA=16THENA=0
220 IFG$="[136]"THENB=B+1:F=1:IFB=16THENB=0
230 IFG$="[135]"THENC=C+1:F=1:IFC=16THENC=0
240 RETURN